   1 .
   2 :return 
   3 .SPACE WARS
   4 .SUPER EDITION
   5 .BATTLESTAR GALACIA
   6 .PICARDI
   7 H=0
   8 I=0
  10 clear 
  15 FC=7;BC=0
  20 for A=1to 50
  40 box rnd (160)-80,rnd (80)-40,1,1,1
  50 next A
  55 W=0
  56 &(22)=200
  57 &(23)=255
  60 box 0,30,50,9,1
  70 box 0,30,20,13,1
  75 X=25
  76 E=0
  80 for A=1to 30
  81 if X>0E=E-1
  82 if X<0E=E+1
  83 X=X+E
  90 box X,30,2,3,2
  95 next A
  99 E=0
 105 NT=0
 110 B=rnd (160)-80;C=rnd (44)-44
 130 &(17)=25;&(18)=28
 135 &(20)=225
 140 B=B+JX(2)mul 5;C=C+JY(2)mul 5
 144 if B>77 B=-77
 145 if B<-77 B=77
 146 if C>42 C=-42
 147 if C<-42 C=42
 148 box B,C,6,2,3;box B,C+1,3,1,3
 160 F=KN(2)div 2
 161 CX=-40
 162 CY=44
 163 print #3,H,#4,20-W,#4,5-E,#4,I
 165 D=KN(1)div 3mul 2
 166 if D<-77D=-77
 167 if D>77D=77
 170 if TR(1)=1goto 1000
 180 if TR(2)=1goto 2000
 190 box B,C,6,2,3;box B,C+1,3,1,3
 200 goto 130
1000 line 0,30,0
1005 &(18)=20;&(17)=15;&(20)=30
1010 line D,C,3;line 0,30,3
1030 line D,C,3;line 0,30,3
1035 line 0,0,0
1040 if B-D<3if B-D>-3goto 3000
1060 goto 180
2000 line B,C,0
2001 &(17)=20;&(18)=30;&(20)=40
2010 line F,30,3;line B,C,3
2030 line F,30,3;line B,C,3
2035 line 0,0,0
2040 if F<15if F>-15goto 4000
2050 goto 190
3000 BC=7;&(17)=25;&(18)=35
3001 BC=0
3002 E=E+1
3003 if E<5goto 180
3004 &(17)=0;&(18)=0;&(20)=0
3005 for A=1to 15
3010 BC=57;&(21)=255
3020 BC=0;&(21)=0
3022 box B,C,rnd (12),rnd (12),3
3023 next A
3024 if B<30if B>-30if C>20goto 4010
3025 box B,C,14,14,2
3026 box B-18+rnd (36),C+6+rnd (15),1,1,1
3035 line 0,0,0
3036 NT=3
3040 H=H+1
3042 for A=1to 1500
3044 next A
3045 CX=-50
3046 CY=0
3047 print #1,"CYLON DESTROYED"
3048 if W>10print "  GALACIA BADLY DAMAGED"
3049 for A=1to 1500
3050 next A
3051 goto 10
4000 W=W+1
4001 BC=7;&(20)=20
4002 BC=0;&(20)=30
4003 box F-5+rnd (10),24+rnd (10),2,2,2
4004 if W<20goto 190
4005 I=I+1
4010 &(17)=0;&(18)=0;&(20)=0
4011 for A=1to 10
4012 BC=7;&(21)=255
4020 box 0,30,rnd (57),rnd (18),3
4025 box -15,30,rnd (25),rnd (18),3
4026 box 15,30,rnd (25),rnd (18),3
4030 BC=0
4035 &(21)=0
4040 next A
4050 box 0,27,60,34,2
4055 NT=3
4060 for J=1to 7
4070 box rnd (60)-30,rnd (20)+20,1,1,1
4090 next J
4100 for A=1to 1500
4110 next A
4111 CX=-50
4112 CY=0
4113 print #1,"GALACIA DESTROYED"
4114 if B<30if B>-30if C>20print #1,"  BY EXPLODING CYLON"
4115 for A=1to 1500
4120 next A
4130 goto 10
>run 